10 REM "MYSTERY AT MYCROFT MEWS" 20 S=54272:FORJ=0TO24:POKES+J,0:NEXT:POKES+24,15 30 POKE53280,0:POKE53281,0:POKE53283,6:PRINT"[147]"CHR$(8)CHR$(142); 40 M$="[223][169][157][157][157][157] [223][169] [157][157][157][157] [157][157][157][157] [212][217] [157][157][157][157][146][223][205] [205] [145][157] [157][145] [157][145] [157][145][223][146]" 50 PRINT"[147][150]"TAB(8)M$"YSTERY AT":PRINT"[129]"TAB(16)M$"YCROFT" 60 PRINT"[158]"TAB(24)M$"EWS":GOSUB20000 100 FOR J=49152TO49220:READX:A=A+X:POKEJ,X:NEXT:POKE785,0:POKE786,192 110 IFA<>8919THENPRINT"[147]ML DATA ERROR":STOP 120 DEFFNR(X)=INT(RND(1)*X)+1:Y=RND(-TI):DEFFNSX(X)=-(X>6) 140 V=53248:POKEV+28,1:POKEV+39,4:POKEV+37,15:POKEV+38,6:POKEV+27,0:POKE2040,13 150 FORJ=832TO894STEP3:POKEJ,0:POKEJ+1,0:POKEJ+2,0:IFJ<=880THENREADA:POKEJ,A 160 NEXT 170 MX=FNR(3):MV=FNR(12):MW=FNR(12):MR=FNR(12):IFMV=MRTHEN170 180 I=12:DIML(74),U1(I),U2(I),G(I),AL(I),H(I),L0(I),SX(1,4) 190 DIMAL$(5),IT$(16),B$(16),S$(I),H$(I):H$(0)="STAMP COLLECTOR" 200 FORJ=1TO16:READB$(J),IT$(J) 210 I=FNR(16):IFL(58+I)>0THEN210 220 L(58+I)=J:L(12+J)=16:IFJ>12THEN250 230 READS$(J),H$(J):L(J)=J:AL(J)=FNR(6)-1:H(J)=FNR(12):L0(J)=FNR(15) 240 L(J+12)=-L0(J):G(J)=FNR(7)-16*(RND(1)<.5)-32*(RND(1)<.5)-64*(RND(1)<.5) 250 NEXT:L(30)=MX:L(49)=3ANDMW:L(50)=FNR(40)+20:FORJ=0TO1:FORI=0TO3 260 READSX$(J,I):NEXTI,J:FORJ=0TO5:READAL$(J):NEXT:FORJ=1TOMX:READIT$(13):NEXT 270 L(MV)=0:L(25)=-MV:AL(MR)=FNR(3)-1 275 L0(MW)=MR:IF-L(12+MW)=MRTHENL(12+MW)=-FNR(15):GOTO275 280 G(MV)=FNR(7)-8*(MX=2):IFMX<3THENG(MV)=G(MV)OR6 290 G(MR)=G(MR)OR2^(MX+3):IFMX<3THENG(MR)=G(MR)AND251 300 PRINTTAB(8)"[156]HOW MANY PLAYERS? (1-6)":POKE198,0 310 WAIT198,1:GETA$:A=VAL(A$):IFA<1ORA>6THEN310 320 L(57)=A:FORJ=1TOA:L(36+J)=5:L(42+J)=7:L(30+J)=17:NEXT:P=1:DIMSC$(A) 400 POKEV+17,27:PRINT"[147]":POKEV+21,0 410 FORY=1TO4:PRINT" ";:FORX=1TO4:H=(X*4-Y-6-2*(H=12))AND15 420 PRINT"[155][169] [146][169][205][157][157][180][170][157][157][204][186][157][157][157][157][157][145]";:POKE646,H:PRINT"[163][163][163][157][157][157]  [146][145][145] "; 430 NEXT:PRINT"":NEXT:PRINT"PLAYER #"P"":IFL(57)-L(58)=1THEN500 440 PRINT"ENTER YOUR SECRET CODE!":POKE198,0:WAIT198,2:GETA$,B$ 450 IFSC$(P)=""THENSC$(P)=A$+B$ 460 IFSC$(P)=A$+B$THEN500 470 J=USR(33000):GOSUB20000:GOSUB20100:GOTO440 500 X=L(36+P):Y=L(42+P):POKES+1,33:POKES+5,9:POKES+6,0 510 POKE198,0:GOSUB20100:PRINT"MOVE TO BUILDING DESIRED":GOSUB20500 520 GOSUB20300:GOSUB20100:IF(XAND1)OR(YAND1)THEN520 530 J=2*Y+X/2-8:B=L(58+J):IFB<>MVTHEN600 540 IFL(26)=P+100ORABS(L(26))=MVORL(30+P)=MVTHEN600 550 PRINT"THAT BUILDING IS LOCKED. TRY ANOTHER.":GOTO520 600 L(30+P)=B:L(36+P)=X:L(42+P)=Y:POKES+6,96:POKES+4,33:FORJ=0TO12:POKES+1,33-J 610 U2(J)=0:U1(J)=0:NEXT:POKES+4,0:POKEV+21,0:PRINT"[147][154]YOU ARE AT THE "B$(B)".[155]" 620 PRINT"YOU HAVE ";:IFL(50+P)THENPRINT"THE "IT$(L(50+P))".":GOTO640 630 PRINT"NO ITEM." 640 I=0:PRINT"YOU SEE:[152]":FORJ=1TO12 645 IFL(J)=BTHENPRINTS$(J):U2(1)=U2(1)+1:I=1:U2(5)=J 650 NEXT:FORJ=1TO16:IFL(J+12)=BTHENPRINT"THE "IT$(J):U2(2)=U2(2)+1:I=1 660 NEXT:FORJ=1TOL(57):IFJ=PORL(J+30)<>BTHEN690 670 PRINT"PLAYER #"J;:I=1:U2(3)=U2(3)+1:IFL(50+J)=0THENPRINT:GOTO690 680 PRINT"":U2(4)=U2(4)+1 690 NEXT:IFI=0THENPRINT"NOTHING WORTH MENTIONING." 695 PRINT"[155]PRESS BUTTON FOR TURN OPTIONS":GOSUB20400 700 PRINT"[147][150]TURN OPTIONS...":MY=1:Y=1:POKEV+17,91:U1(1)=1:PRINT"SEARCH" 720 IFU2(1)THENPRINT"INTERROGATE SUSPECT":MY=2:U1(2)=2 730 IFU2(2)ORU2(4)THENPRINT"TAKE ITEM":MY=MY+1:U1(MY)=3 740 IFB=16AND(U2(2)ORL(50+P))THENPRINT"FINGERPRINT ITEM":MY=MY+1:U1(MY)=4 750 IFB=16THENPRINT"ACCUSE A SUSPECT":MY=MY+1:U1(MY)=5 760 IFB=14THENPRINT"READ CORONER'S REPORT":MY=MY+1:U1(MY)=6 770 IFL(25)=100+PORL(25)=BTHENPRINT"READ "IT$(13):MY=MY+1:U1(MY)=7 780 IFL(50+P)THENPRINT"DROP OR HIDE ITEM CARRIED":MY=MY+1:U1(MY)=8 790 IFB<3ORB=7THENPRINT"EXAMINE "B$(B)" RECORDS":MY=MY+1:U1(MY)=9 800 GOSUB20100:PRINT"CHOOSE ONE":GOSUB20600:I=U1(Y):Y=1:PRINT"[147][154]"; 810 ONIGOSUB1000,2000,1400,1100,5000,1200,1500,1300,1600:J=FRE(0) 900 POKE214,22:PRINT:PRINT"[158] *** PRESS BUTTON TO END YOUR TURN ***";:GOSUB20400 910 PRINT"[147][154]"TAB(12)"PLAYER #"P:PRINTTAB(12)"END OF TURN" 915 J=USR(33000):GOSUB20000 920 P=P+1:IFP>L(57)THEN950 930 IFL(30+P)>0THEN400 940 GOTO920 950 FORJ=1TO12:L(J)=FNR(16):IFL(J)=MVTHENL(J)=J 960 NEXT:FORJ=31TO36:IFL(J)<13THENL(L(J))=L(J) 970 NEXT:L(MV)=0:P=1:GOTO930 1000 PRINT"SEARCH":PRINT"[155]YOU FIND:[152]":I=0 1010 FORJ=1TO16:IFL(J+12)<>-BTHEN1030 1020 IFRND(1)<.6ORL(50+P)=15THENI=1:PRINT"THE "IT$(J):L(J+12)=B 1030 NEXT:IFI=0THENPRINT"NOTHING OF INTEREST":RETURN 1040 PRINT"[154]TAKE AN ITEM? ";:GOSUB20700:IFYN=0THENRETURN 1050 U2(4)=0:PRINT"[147][154]";:Y=1:GOTO1400 1100 PRINT"FINGERPRINT ITEM":PRINT"[155]WHICH ONE?":MY=0 1110 FORJ=1TO16:IFL(J+12)=BTHENPRINT"THE "IT$(J):MY=MY+1:U1(MY)=J 1120 NEXT:I=L(P+50):IFITHENPRINT"THE "IT$(I):MY=MY+1:U1(MY)=I 1130 GOSUB20600:I=U1(Y):PRINT"[147][154]LAB REPORT:":PRINT"THE "IT$(I) 1140 PRINT"BEARS THE FINGERPRINTS OF":L(I+12)=B:IFL(P+50)=ITHENL(P+50)=0 1150 IFI<13THENIFL0(I)<13THENPRINTS$(L0(I))".":RETURN 1160 IFI=13THENPRINTS$(MV)".":RETURN 1170 PRINT"NO SUSPECT.":RETURN 1200 PRINT"CORONER'S REPORT:":X=ABS(MV>6):PRINT"SUBJECT IS "SX$(X,0)"," 1210 PRINT"APPROXIMATELY"L(50)"YEARS OF AGE.":J=USR(34000+L(49)*10) 1220 READT$:PRINT"SUBJECT APPARENTLY WAS "T$ 1230 READT$:PRINT"BY A "T$".":RETURN 1300 PRINT"DROP OR HIDE ITEM CARRIED":PRINT"[155]DO YOU WANT TO HIDE THE" 1310 I=L(50+P):PRINTIT$(I)"? ";:GOSUB20700:L(50+P)=0 1320 PRINT:PRINT"[155]YOU DROP THE "IT$(I)"." 1330 L(12+I)=B*(1+YN*2):IFYNTHENPRINT"ITEM HIDDEN." 1340 FORI=1TO200:NEXT:POKE198,0:RETURN 1400 PRINT"TAKE ITEM":PRINT"[155]WHICH ONE?":MY=0 1410 FORJ=1TO16:IFL(J+12)=BTHENPRINT"THE "IT$(J):MY=MY+1:U1(MY)=J 1420 NEXT:IFU2(4)=0THEN1450 1430 FORJ=1TOL(57):IFJ=PORL(J+30)<>BORL(J+50)=0THENNEXT:GOTO1450 1440 PRINT"PLAYER #"J"[157]'S ITEM":MY=MY+1:U1(MY)=100+J:NEXT 1450 GOSUB20600:I=U1(Y):IFI>100THENI=L(I-50):L(U1(Y)-50)=0 1460 PRINT"[147]":J=L(50+P):IFJTHENPRINT"YOU DROP THE "IT$(J)".":L(J+12)=B 1470 PRINT"YOU TAKE THE "IT$(I)".":L(50+P)=I:L(I+12)=100+P:RETURN 1500 PRINT"EXTRACT FROM THE "IT$(13):PRINT"OF "S$(MV)":" 1510 J=USR(34000+L(30)*100) 1520 READT$:I=VAL(T$):IFI=0THENPRINTT$:GOTO1520 1530 PRINT"[152]":FORJ=1TO12:IFIANDG(J)THENPRINT" "S$(J) 1540 NEXT:PRINT:J=FRE(0):RETURN 1600 PRINT"EXAMINE "B$(B)" RECORDS":PRINT"[155]ABOUT WHOM?" 1610 FORJ=1TO12:PRINTS$(J):NEXT:MY=12:GOSUB20600 1620 PRINT"[147][154]"B$(B)" REPORT":PRINT"ON "S$(Y)":":ONBGOTO1650,1690 1630 J=USR(34400):FORJ=1TO(G(Y)AND7):READT$:NEXT 1640 PRINTTAB(8)T$" ACCOUNT":RETURN 1650 IF(G(Y)AND40)=0THENPRINT"SUBJECT NOT IN RECORDS.":RETURN 1660 IFG(Y)AND8THENPRINT"SUBJECT RECENTLY DREW UP A NEW WILL.":RETURN 1670 PRINT"SUBJECT CAN EXPECT TO INHERIT":PRINT"SUBSTANTIAL WEALTH IN THE NEAR" 1680 PRINT"FUTURE.":RETURN 1690 IF(G(Y)AND64)=0THENPRINT"SUBJECT NOT IN FILES":RETURN 1700 PRINT"PATIENT SEVERELY PARANOIAC, ENVIOUS AND" 1710 PRINT"RESENTFUL OF OTHERS. MAY SHOW SUDDEN" 1720 PRINT"HOMICIDAL FURY.":RETURN 2000 Y=1:Q=3:H=0:Q4=-1:IFU2(1)=1THENQ1=U2(5):GOTO2100 2010 PRINT"INTERROGATE A SUSPECT":PRINT"[155]WHICH ONE?":MY=0 2020 FORJ=1TO12:IFL(J)=BTHENPRINTS$(J):MY=MY+1:U1(MY)=J 2030 NEXT:GOSUB20600:Q1=U1(Y):Y=1 2100 PRINT"[147][154]INTERROGATE "S$(Q1):MY=13:POKE198,0:I=12:IFQ4=0THEN2120 2110 PRINT"[155]ABOUT WHOM?":FORJ=1TOI:PRINTS$(J):NEXT 2115 PRINT"":GOTO2130 2120 PRINT"[155]ABOUT WHAT ITEM?":FORJ=1TOI:PRINT"THE "IT$(J):NEXT 2125 PRINT"" 2130 IFH<>0THENPOKE782,Y:SYS49189:H=0 2140 GOSUB20600:H=1:IFY=13THENH=0:Q4=NOTQ4:GOTO2100 2150 Q2=Y:Q=Q-1:YN=(RND(1)<.75):GOSUB20100:ONQ4+2GOSUB2200,3000 2160 FORJ=1TO100:NEXT:POKE198,0:IFQTHEN2130 2170 J=FRE(0):RETURN 2200 Q3=FNR(12):IFQ3=MVORQ3=Q1THEN2200 2210 T$=S$(Q2):IFRND(1)>.2ORL(28)=100+PTHEN2240 2220 L(29)=(L(29)+1)AND1:IFL(29)THENPRINT"I NEVER GOSSIP.":RETURN 2230 PRINT"I DON'T HAVE TIME TO TALK NOW.":RETURN 2240 X=FNSX(Q2):IFQ2=Q1THEN2500 2250 IFQ2=MVTHEN2400 2260 ONFNR(7)GOTO2290,2300,2300,2320,2320,2360 2270 IFAL(Q1)<3ORAL(Q1)<>AL(Q2)THEN2285 2280 PRINT"I WAS WITH "T$:PRINT"ON THE NIGHT OF THE MURDER.":RETURN 2285 PRINT"I CAN'T CONFIRM "SX$(X,3)" ALIBI.":RETURN 2290 PRINTT$" DID IT, I'M SURE!":RETURN 2300 PRINTT$:I=FNR(3):J=2*I-1:IFG(Q2)AND2^(3+I)THENJ=J-1 2310 GOSUB20800:RETURN 2320 GOSUB20900:IFRND(1)>.5THEN2370 2340 PRINTT$" OWNS":A=-1*YN:IFA=0THENPRINT"A NEW CAR.":RETURN 2350 PRINT"THE "IT$(A)".":RETURN 2360 A=H(Q2) 2370 PRINTT$" IS":PRINT"A "H$(A)".":RETURN 2400 ONFNR(3)GOTO2440,2470 2410 IFFNR(3)=1THENPRINT"HOW TRAGIC THAT":PRINTSX$(X,1)"'S GONE.":RETURN 2420 IFFNR(2)=1THENPRINT"I THINK IT WAS SUICIDE.":RETURN 2430 PRINT"I THINK THAT "S$(Q3):PRINT"MURDERED "SX$(X,2)".":RETURN 2440 I=FNR(4)-1:IFYNTHENI=L(49) 2450 PRINT"I HEARD THAT "SX$(X,1)" WAS KILLED":J=USR(34000+I*10) 2460 READT$,T$:PRINT"BY A "T$".":RETURN 2470 I=FNR(3):IFYNTHENI=L(30) 2480 PRINT"I HEARD THAT "SX$(X,1)" WAS":J=I+5:GOSUB20800:RETURN 2500 ONFNR(4)GOTO2530,2540,2550 2510 GOSUB20900:IFA=0THENPRINT"I OWN A NEW CAR.":RETURN 2520 PRINT"I OWN THE":PRINTIT$(A)".":RETURN 2530 PRINT"I WAS "AL$(AL(Q1)):PRINT"ON THE NIGHT OF THE CRIME.":RETURN 2540 A=H(Q1):GOTO2560 2550 GOSUB20900 2560 PRINT"I AM A "H$(A)".":RETURN 3000 ONFNR(5)GOTO3030,3060,4030,4050 3010 PRINT"I ";:IFNOT(L0(Q2)=Q1)OR(Q1=MR)THENPRINT"DO NOT "; 3020 PRINT"OWN THE":PRINTIT$(Q2)".":RETURN 3030 IFYN=0OR(Q2=MWANDQ1=MR)ORL0(Q2)>12THEN3050 3035 IFL0(Q2)=Q1THEN3010 3040 PRINTS$(L0(Q2))" OWNS":PRINT"THE "IT$(Q2)".":RETURN 3050 PRINT"I'M NOT SURE WHO OWNS":PRINT"THE "IT$(Q2)".":RETURN 3060 I=FNR(57):X=ABS(L(12+Q2)):IFX<100THEN4000 3070 X=X-100:IFYN=0THENX=I 3080 IFX=PTHENPRINT"YOU HAVE THE "IT$(Q2)",":PRINT"DON'T YOU?":RETURN 3090 PRINT"I THINK THAT PLAYER #"X"HAS":PRINT"THE "IT$(Q2)".":RETURN 4000 IFYN=0OR(Q2=MWANDQ1=MR)THENJ=9:GOTO20800 4010 IFX=Q1THENPRINT"I'VE GOT THE":PRINTIT$(Q2)".":RETURN 4020 PRINT"I SAW THAT AT THE ":PRINTB$(X)".":RETURN 4030 PRINT"THE "IT$(Q2)" WAS ";:I=(Q2=MW)=YN:IFI=0ORQ1=MRTHENPRINT"NOT"; 4040 PRINT:PRINT"THE MURDER WEAPON.":RETURN 4050 X=0:FORJ=1TO12:IFH(J)=Q2ANDRND(1)>.5THENX=J 4060 NEXT:I=L0(Q2):IFI>12THENI=0 4070 IFRND(1)<.5THENX=I 4080 IFX=0THENJ=9:GOTO20800 4090 PRINTS$(X)" IS":PRINT"A "H$(Q2)".":RETURN 5000 PRINT"[150]ACCUSE!":PRINT"[155]WHO WAS KILLED?":MY=12:Q=-1 5010 FORJ=1TO12:PRINTS$(J):NEXT:Y=1:GOSUB20600:Q=Q*(Y=MV) 5020 PRINT"[147][158]ACCUSE!":PRINT"[155]WHO KILLED "S$(Y)"?":Y=1 5030 FORJ=1TO12:PRINTS$(J):NEXT:GOSUB20600:H=Y:Q=Q*(H=MR) 5040 PRINT"[147][153]ACCUSE!":PRINT"[155]WHAT WEAPON DID":PRINTS$(H)" USE?":Y=1 5050 FORJ=1TO12:PRINT"THE "IT$(J):NEXT:GOSUB20600:Q=Q*(Y=MW) 5060 PRINT"[147][154]ACCUSE!":PRINT"[155]WHY DID "S$(H):PRINT"COMMIT MURDER?":Y=1 5070 X=FNSX(H):FORA=0TO4STEP2:J=A:PRINTSX$(X,1)" ";:GOSUB20800:NEXT 5080 MY=3:Y=1:GOSUB20600:Q=Q*(Y=L(30)) 5100 PRINT"[147]THE POLICE ARE ARRESTING":PRINTS$(H)".....":POKES+5,13:POKES+6,0 5110 POKES+4,65:FORJ=1TO20:POKES+1,16+16*(JAND1):FORI=1TO250:NEXT:NEXT 5120 POKES+4,0:POKEV+17,27:FORJ=1TO600:NEXT:IFQTHEN5200 5130 PRINT"NO...THAT WAS A FALSE ARREST.":PRINT"YOU'RE OUT OF THE GAME!" 5140 L(30+P)=0:IFL(50+P)THENL(12+L(50+P))=B:L(50+P)=0 5150 J=USR(33200):GOSUB20000:L(58)=L(58)+1:IFL(58)TITHEN20010 20020 POKES+4,64:READJ:IFJ=0THEN20040 20030 READX,Y:POKES+1,X:POKES,Y:T=T+J*9:POKES+4,65:GOTO20010 20040 POKES+4,0:RETURN 20100 SYS49178:PRINT"[155]";:RETURN 20200 J=NOT(PEEK(56320)ANDPEEK(56321))AND31:A=0:IFPEEK(198)THENGETA$:A=ASC(A$) 20210 BT=(JAND16)OR(A=13):IFBTTHENRETURN 20220 DX=SGN((JAND8)-(A=135)-(JAND4)+(A=134)) 20230 DY=SGN((JAND2)-(A=136)-(JAND1)+(A=133)):IFDXORDYTHENRETURN 20240 GOTO20200 20300 GOSUB20200:IFBTTHENRETURN 20310 IFABS(DX+X-5)>3THENDX=0 20320 IFABS(DY+Y-7)>3THENDY=0 20330 IFDX=0ANDDY=0THEN20300 20340 FORI=1TO4:X=X+DX/4:Y=Y+DY/4:GOSUB20500:POKES+1,30+3*(1ANDI) 20350 POKES+4,17:FORJ=1TO40:NEXT:POKES+4,0:NEXT:GOTO20300 20400 POKE198,0 20410 GOSUB20200:IFBT=0THEN20410 20420 RETURN 20500 POKEV,X*32-1:POKEV+1,Y*20+12:POKEV+21,1:RETURN 20600 POKE782,Y:SYS49189 20610 GOSUB20200:IFBTTHENRETURN 20620 X=Y+DY:IFX<1ORX>MYTHENX=-(X>MY)-MY*(X<1) 20630 IFX=YTHEN20610 20640 POKE782,Y:SYS49189:Y=X:GOTO20600 20700 POKE190,0:YN=-1 20710 PRINTCHR$(-18*YN)"YES[146] "CHR$(YN*2+18)"NO [146][157][157][157][157][157][157][157]"; 20720 GOSUB20200:IFBTTHENRETURN 20730 IFDXTHENYN=NOTYN:GOTO20710 20800 J=USR(35000+10*J):READT$:PRINTT$".":RETURN 20840 GOTO20720 20900 A=0:X=1:FORJ=1TO12:IFL0(J)=Q2ANDRND(1)<1/XTHENA=J:X=X+1 20910 NEXT:RETURN 30000 DATA8,11,48,12,10,143,4,9,104,4,10,143,4,11,48,12,13,78 30010 DATA4,14,24,12,8,97,0 31000 DATA32,247,183,32,19,166,144,13,165,95,233,1 31010 DATA133,65,165,96,233,0,133,66,96,162,17,76 31020 DATA55,164,169,32,160,80,136,153,80,4,208,250 31030 DATA96,169,4,133,252,169,160,24,105,40,144,2 31040 DATA230,252,136,208,246,133,251,160,40,136,177,251 31050 DATA73,128,145,251,192,0,208,245,96 32000 DATA20,20,20,0,170,170,170,170,190,190,190,125,60,60,60,60,85 32100 DATALAW OFFICE,ELEPHANT GUN,PHYLLIS WRIT,BIG-GAME HUNTER 32110 DATAMENTAL HEALTH CLINIC,ANTIQUE CROSSBOW,DR. WILMA LIBIDO 32120 DATA"[157]N ARCHERY EXPERT",DELICATESSEN,BASEBALL BAT,HANNAH NOSH,SPORTS FAN 32130 DATATHEATRE,BOX OF RAT POISON,EDITH SCRIM,PEST EXTERMINATOR,HOTEL 32140 DATAARQUEBUS,CHERYL VALISE,GUN COLLECTOR,ART GALLERY,SCIMITAR 32150 DATADESIREE OCHRE,MASTER FENCER,BANK,BRASS CANDLESTICK,EMILIO LUCRE 32160 DATACANDELABRA FANCIER,LIBRARY,JAR OF SLEEPING PILLS,MORTON SCREED 32170 DATA"[157]N INSOMNIAC",BAKERY,.45 AUTOMATIC,JOSEPH CRULLER,MARKSMAN,PAWN SHOP 32180 DATAKNITTING NEEDLE,NORMAN HOCK,CHAMPION KNITTER,CHURCH,BALL-PEEN HAMMER 32190 DATAREV. ARTHUR TRANSEPT,TOOL COLLECTOR,PUB,VIAL OF SNAKE VENOM 32200 DATAEDGAR QUAFF,HERPETOLOGIST,SHOPPING MALL,ITEM,MORGUE,MASTER KEY 32210 DATAWAREHOUSE,MAGNIFYING LENS,POLICE STATION,POLICE BADGE 32300 DATAFEMALE,SHE,HER,HER,MALE,HE,HIM,HIS 32400 DATAAT HOME ALONE,SICK IN BED,OUT OF TOWN,AT A PARTY 32410 DATAAT THE THEATRE,IN CHURCH 32900 DATALEDGER,WILL,DIARY 33000 DATA2,15,210,2,14,24,2,12,143,2,11,218,4,9,247,4,7,233,4,10,143,0 33100 DATA4,28,49,4,37,162,4,42,62,2,47,107,4,37,162,2,42,62,2,47,107,2,37,162 33110 DATA2,42,62,4,56,99,2,42,62,2,47,207,1,42,62,1,37,162,2,42,62,8,28,49,0 33200 DATA2,25,30,2,23,181,2,31,165,2,35,134,2,47,107,2,37,162,2,35,134 33210 DATA2,47,107,2,37,162,2,35,134,2,31,165,2,29,223,4,31,165,0 34000 DATAPOISONED,"[157]N UNIDENTIFIED TOXIN" 34010 DATASHOT,GUN 34020 DATAIMPALED,SHARP WEAPON 34030 DATABLUDGEONED,BLUNT INSTRUMENT 34100 DATAI HAVE THREATENED TO TELL THE POLICE 34110 DATAALL THAT I KNOW ABOUT THEIR CRIMINAL 34120 DATAACTIVITIES IF ANY OF THESE PEOPLE 34130 DATADOESN'T PAY ME ANOTHER $9000 BY,MIDNIGHT SUNDAY...,16 34200 DATAI HEREBY BEQUEATH ONE HUNDRED MILLION 34210 DATADOLLARS TO EACH OF THESE LOYAL AND 34220 DATAFAITHFUL FRIENDS...,32 34300 DATADEAR DIARY---,I FOUND ANOTHER ANONYMOUS LETTER IN THE 34310 DATAMAIL THIS MORNING. MY LIFE IS IN DANGER 34320 DATAFROM A JEALOUS LUNATIC. THE HANDWRITING 34330 DATACOULD BE THAT OF ANY OF THESE PEOPLE...,64 34400 DATANO,OVERDRAWN,MINIMUM,AVERAGE,SIGNIFICANT,SUBSTANTIAL,MAXIMUM 35000 DATAWAS BEING BLACKMAILED 35010 DATAHAS NO SECRETS TO HIDE 35020 DATAWILL INHERIT MILLIONS 35030 DATAIS NOT A LEGATEE 35040 DATAIS A HOMICIDAL MANIAC 35050 DATAIS AS SANE AS I AM 35060 DATAA BLACKMAILER 35070 DATAEXTREMELY WEALTHY 35080 DATARECEIVING DEATH THREATS 35090 DATAI DON'T KNOW WHERE THAT OBJECT IS